home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1997 January / macformat46.iso / Shareware Plus / Applications / Charting Coach / Charting Coach V2.0sw / Charting Coach V2.DXR / 00192.ls < prev    next >
Encoding:
Text File  |  1996-10-13  |  311 b   |  18 lines
  1. on mouseUp
  2.   global endDate, stamp, comments, dayNo
  3.   if the doubleClick then
  4.     exit
  5.   end if
  6.   set endDate to endDate + 1
  7.   if count(stamp) = 0 then
  8.     set dayNo to 0
  9.     append(comments, " ")
  10.     go("chart stamp")
  11.     cursor(0)
  12.   else
  13.     set dayNo to count(stamp)
  14.     go("rel")
  15.     cursor(0)
  16.   end if
  17. end
  18.